@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr ; D:SYSEQU.ABC; ATARI BASIC COMPILER V2.0; SYSTEM EQUATE FILE; (C) 1984 SPECIAL; SOFTWARE; SYSTEMS}; Licensed to; MMG MICRO SOFTWARE; All rights reservedEOS = 155S0 = $480FR0 = $D4FR1 = $E0ICB = $85P1 = $8}CC1 = FR0P2 = $90C2 = $92USR = $94AFP = $D800XPO = $DDC0LOG = $DECDCLG = $DED1SYS *=$2403INIT *=*+3EXIT } *=*+3CLR *=*+3NDX *=*+3MVX *=*+3SSCR *=*+3SAD *=*+3MVC *=*+3MVC2 *=*+3FPI *=*+3LD0 *=*+3LD1 *=*}+3STO *=*+3MOV *=*+3GETL *=*+3GTL2 *=*+3RNUM *=*+3RSTR *=*+3GETN *=*+3GETS *=*+3CR *=*+3TAB *=*+3P }RN *=*+3SPR *=*+3SPR2 *=*+3LPR *=*+3OPEN *=*+3CLOSE *=*+3SCB *=*+3SCB2 *=*+3PUT *=*+3GET *=*+3STAT }*=*+3FSPC *=*+3XIO *=*+3CMD *=*+3INT *=*+3IFP *=*+3RND *=*+3SIN *=*+3COS *=*+3ATN *=*+3SQR *=*+ }3ABS *=*+3SGN *=*+3USX *=*+3FRE *=*+3LT *=*+3LE *=*+3GT *=*+3GE *=*+3EQ *=*+3NE *=*+3L }TS *=*+3LES *=*+3GTS *=*+3GES *=*+3EQS *=*+3NES *=*+3ADR *=*+3ASC *=*+3LEN *=*+3VAL *=*+3STR } *=*+3CHR *=*+3ADD *=*+3SUB *=*+3ISUB *=*+3MUL *=*+3DIV *=*+3IDIV *=*+3EXP *=*+3IEXP *=*+3NEG *=}*+3LOR *=*+3LAND *=*+3NOT *=*+3INM *=*+3POK *=*+3PEEK *=*+3GR *=*+3COL *=*+3SCOL *=*+3POS *=*+3}IPOS *=*+3PLT *=*+3IPLT *=*+3DRW *=*+3IDRW *=*+3STK *=*+3STG *=*+3PDL *=*+3PTG *=*+3VOX *=*+3TRA}P *=*+3REST *=*+3ADI *=*+3MLI *=*+3PNT *=*+3IPNT *=*+3NOTE *=*+3ST1 *=*+3RUN *=*+3BYE *=*+3DOS } *=*+3ST0 = STO.FIL 'D:ASSEM.SGA'+3PNT *=*+3IPNT *=*+3NOTE *=*+3ST1 *=*+3RUN *=*+3BYE *=*+3DOS +$1L 2L>%L+Lx%L'L'L'L(L(L(LLLLLL*L*LE(L(Lk*LR(L@*L|'LM,L*L!(L9'LJ'Lk'L&L&L*L*L&'Ls(LP'L&L00L[0L},L-L-L/Lf-Lb0Lk0L)L)L%L%L%L%L%L%L&L&L"&L+&L9&L2&L4)L;)LJ)Lg)LW,L&)L&L&L&L&L&L&L-L,L6,LF&LS&L@&L&L'L'L}0Lt'L0L0L0L01L31LJ1LM1L1L1L1L1L1L'L'L)L)L 1L 1L0L)L'L%L% +膚 ɩҍD҅ 2 22}2 '2222 ` +Lq +l &0JQ &A0?F ݥE07, `ڥ0.,!" &}0 & & à. 8` D` `& `& `& `&Ԑ `& `&ͥ ݥзг ݥФьɛ} &0 &0 `ԥ`Ɠƒ` ?,L& `ڰ%` fڰ` ڰ` ?,L& (۰` L+ ݢ. fL }٥ Ʌ` ٥ԅ`TU HH k'hhL+ B VԩL٩p &PKJBD}EL+ ٥ԅ`Ę eĘ F*L' ?, ٠` ٠ԅԄL٘7+``&դԦ&eԅԊe}eԅԥeՅ`L 'ԨL݆Ԅ ?, eԥe`@GԄ ?,ɛ F*0 ` ( ؐL+ȹɛ}꩛`f ?," (f ?, 8fԆՅɛ摥0L($0`2 2}L+ (,ɛM (M ( )ɛ )򩀅` ٥ԍ`ԄLنԄLنɛ}ԆLن ?,󅐩f ( ؐ0LM(ԅԥՅL82ԭ 2Lن` ?, eԥe` ?}, *ԦԄզՄFԐ eਊe&Ԇfؐ ԅԩՅ`؄քע .*Ե 8`R晄 ^*}L+`GHFH` *0ɛȄ ؐL+ɛ F*` F*` ٦HI BL+՝HI }B VL+L?* *򦅩HIDEB Vú5,hh7+l5, ,0dd ,!}8/ i , 0,, * Trace:BASIC exit I`Դ#}` W,L* )ԩ-ȘH h00,)`@?"6?D'8h4d=u#@(>33!$}fffg?@W)WyQB'h M,ԭ ҍ,) ٢Ԡ, L( ?,L- ݥ Q0OLD')ԥ)8@0=,j,H%} ޢ hԅ`, L+0t8??Ԣ ݢ, ڢ, fک ݢ ?, (ۢ fڢ, &} (n Ƞ, e)`Π, L(ۥIԩ, - IԢ>^ԝ ڢ ݢà. @ݢ*} ݢ ݢ. @ݢ (ۢ ڢ ڢ fڭI miϪi. fhIԥ Π, `LD+}ڥ)D"@Dڔ à. ``ԅL٥I`à. (`` k' ٢`BԝK)I JD0EL+S,}:)H)h y` ?, ?, ٥TԅUՅV`&B +Nԩ ݦLԽML ?, ?, ٠%LMԝN-}BL+ ?, d1` BHIL+ ?, d1`B JKL+ 00 ٥ԅUՅV ?, 00 ٥ԅT`)ҩҊ H) hҘ.}` ٥)xԩL ٥))L &L& ٥)pԩL ٥)|L&L & $ҩҊ H) hҘ`$0L 2L>%L-Lx%Lo(L(L(L(L8)L6)L%L%L%L%L%LY,Ld,L(L)L!,L(L+L$(L*.L,L(L'L'L'Lm'Lv'L,L,L'L(L'L'L.L.Ls0}.L.L.L.L.L.L.L'*L2*L&L&L.&L=&LF&LQ&Lk&Lr&L{&L&L&L&L)L)L)L)L4.L)L:'L'L&LL'L['LR'L*L*L.L&L&L&La'LB(LR(L1}.L(L&/LA/L>/L/L/L/L/L 0L0L30LK0L/L^(Lj(L)'L@'Lw/Lz/LW/L%L'L%L% -膚 ɩҍD҅ 2 222}2 a(2222 ` -Lq -l ԤՄԅ`ȱ`ȱ`ȥ`3}ԑȥՑ`ԤՄ`ԤԅդՅ` '0=D '04.5 '0.( '0 ' ' 8`ԅ`4} & & & &ѐ & &ʥ %аЪ %Зьɛ &0 &0 `5}ԥ`Ɠƒ` % &LW* %LW* %օ0֥0 W*` %eԥe` %Le* % % s*L% %Ls* % &L* %L* %6}L% % Ʌ` BLV䅆L' %ԅ`TU HH 'hhL, B VԩL%p v'P7}KJBDEL, &fLA) %ԅ`Ę eĘ +L4( % & %` %Ԅԅ`8}-``&eԅԥeՅ`L% o(ԨL%Ԅ & %eԥe` Ԅ &ɛ +0 ` h) ذ9}I ( 8ԅԩՅL%L,ȹɛ꩛` h)f & 8fԆՅɛ摥0:}LC)$0`2 2L,(,ɛM(M( )ɛ )򩀅` %ԍ`ԄL%;}ԄL%ɛԆL% &󅐩f A) ؐL(L8,ԅԥՅL%82ԭ 2L%ԤՄԅե<}`8ե`eեe` F* O+fL% F* +fL%8ԨՄԅL% & F*ԥՄԩՅօפԥFf K+=}ԥ O+ԅՅԥզЦ`ԅՅʩ0F+A+ F+ 08f$˹ `' d>} +1ԦԄզՄFԐ eਊe&Ll+Ԇ`hh L, +Ff&֐ݥ ԆՅԠ&&&8થ?}օԈ`քע +Ե 8`晄 ,L,`GHFH` Y,0ɛȄ ؐL,HI h @}8ԅԩՅL%?W, ,򦅩DEBHIL,ɛ +` +` %HI BA}L,՝HIB VL,L%B Vú.hh-l. -0dd-8/ i - 0-B}- ,@. ,... + x' $(.Ԏ.8ե *.LW-- , d,ɛD(C` ذ -L- -L 2 C}-. ,L- - -L-l lp '8`ERROR- ?Run address> BASIC exitTrace:S8Յթԅ` 4.L,D} .-ȘH *h00,)` & ҅ԭ ) *օեׅ` L,0թԅթᨊE}```Յ`8Յթԅ`0 ԩ`ԅ`` ' %`BԝK)I J"D/ELVS:.)H)h F} y` & % & %TԅUՅV`&B ,NLսM` & %ԝL՝MN%BL, & /` BHIL, G}& /`B JKL, %ԅUՅV & %ԅT`)ҩҊ H) hҘ` %)xԩL% %))LcH}&LZ& %)pԩL% %)|LZ&Lc& ^0L-à. (`$` %)xԩL% %))LcW`zLbbLc``fcdifYiPirf5bckbIcfiYc9gԅ ؠȹ0&0 L3`0Hh +xL\`h c蹀)Hh +x`h c` b J}c! 4a /ASM/ System Error '` 4a /ASM/ Insert disk with DUP.SYS !b z xL` c`HhLchL+x0 BHI K} VLs``H h`Lbc bc Ld 4a} /LOADER/LixhhHh cLPah +x `aLDE M} ɛ c 4a Please Insert Correct Disk 4a PRESS ANY KEY TO CONTINUE LcpB͝DcEJKLV bc c@ N}sc@BDEJK V5ϩ1 aLhb va0 BDE V aLb0BDEJK VL O}s` a a@ sc sc BgDaEJK Vhaha5ϩ1ha aLb BD EH@I VLs` scLe P}sc sc0 sc@ BLVHh bcLs`` DbpBHI V cH cp sch`K:J Q} c J`l s #`D 򩄅01:`"e R}d!bjk V`}.Ls`}E F Ls``Le BgDaEJK V Ls` aLd B S}D EH@I VLs` sc a`}'Ls`}'򩛙 sc Ld aL-e  BD T}EJK V aLNe BD EH@I VLs` sc a`݅إ8 a l 4a} /ASM/ PASS 2 U} eLeʅ΅ii {cɛ} {cɛHHRXIXhh t mLl}; V}Ll >mLm}.Lg*L7g  Lm mLm qL$jLm mLm AX W}YSP LmHH m}=J pLm̅˅ qLlLCf mLl}= X}Ll m Lm nƪ0LmLm+%! qˆLm q̥Lmhh pſ Y}Lm qLlʦ譯ww m } LgLlў KuLuliiL Z}l mLm nƪ0(LiLhʦ qUƋLh˅̅ wʦ s s s [} s s) СЙ q ymLm},Ll mLlLmh}'  qLh˅̅ \}w0}'}' s步 sLCi qLhLm tdLm mLl mLlww Lh)Li L ]}i @Li)Li Li)Li ymLl},LlLi m̠Lm m}'ˠLm q tdLrLrɅ˅̅ w ^}sLmʥ mLl};LlA'} jv0 e t sLBjLm# Lj(L _}l nƪ0G? Ll}'LlLl}} 'Lm汩 ymO})氥LDLl}, `}L5Ll}XLkYLm3L-Ll0} 륰Lk Lkl=iҥiѥ8҅ a}х0 Lkʥ-ʩLk ʩɥɥi Lli \ve b}kv8Llɥ8 L lLlɥi Lle t s= s s s s/; %C9 c}ȊLmɥȩLmLmʦLlLlLmȩLmLm˕ xLt q` d}} L Lo m Ln$Ln@Ln%Ln m: m mъ8 g}Lo mLo pҰVLo*Lo˅̅LoLo m mLo m mъ8х oLo+De h}e*% ѩ%ELoLo %LoLo-^8姅妅*% ѩ%E %LoLoѩ i}%E o}L2nLo`Lo} , );`} m80Lp m87ū` j}͊HLEpLEpLEp ٥ѥҢ&  !&ѐ e҅eх ei hƩ k}Lo8`8 _Weejf)􅌥ȱ8`8Шii l}Й`ŃńZiiŌ卐L8qȥii` 4a} Overflow m}errorLwwwќ=wuw`ii90`HHȊh˙ȥ̙h  n}ɐȆe˅˥i̥`Lr8`i n`Ls lr`ą ` r ` ` `L` o}a l ~ 4a} /ASM/ PASS 3Le `Lw%ȐLs 4a---->} cΐ 4a /ASM/ Sy p}stem error}L ΐLsH 4a /ASM/ Ref: Line #-->hȹ} cΐ 4a /ASM/ Unresolved line number 8nr 4aContin q}ue (Y/N) ? cY4N s 4a /ASM/ User abortLs`Ls`#``L tŅ08 r F`e˅iLw˅̅LwH r}h`)h`h``)`Luei t8婅 teɀ w s}ĩߢ`` w`HV wiʩ ` ` ` `8ei t} ` ` ` th` t t ` ` ` ` ` ` `$ `LaiiiiiiiiiiiiiiijiiMhQhIhB u}YTWORDBYSKIPAGENDOPTFILGENNOGSYMNOSNOCCNTCOUERRNOESANDIALISNOLADCANDASLBCCBCSBEQBITBMIBNEBPLBRKBVCBVSCLCCLDCLICLVCMPCPXCPYDEC v}DEXDEYEORINCINXINYJMPJSRLDALDXLDYLSRNOPORAPHAPHPPLAPLPROLRORRTIRTSSBCSECSEDSEISTASTXSTYTAXTAYTSXTXATXSTYA )7ESao} w} x}        y} a!$0PpXʈAL FHh(&f@`8xuuuuHhL`hL`e` tLa Lwe`H x wh z})i0:0iHhL+xhLcJJJJ``PBDEH ILVH BDEh VL!y` bcTUz z {}  si x 4a Select option: rint line map un program os Which?--> cPwDRЈ |}LOx z xLix 4a Can't find DUP.SYS Insert correct disk` 4a/LOADER/ Can't open output deviceLz 4a To: ri }}nter creen isk Which?--> cSVP(Dв 4a DEVICE:FILENAME?--> x xDEBJ ~}K VL!y 4aMMG Basic Compiler V2.0 Line Reference Map Object file: 轠ɛ cL/z +xL/z 4aѥ }ҩŚuLrzśjLEȱ:> 4aLine # ф cLz +x 4a= ѪѨ '` 4aiѥiҥi }iLaz scLix 4aLs`l @DEC JSR PR`# ф cLz +x 4a= ѪѨ '` 4aiѥiҥi 1d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ`}$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF}7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L}EE !E^ ^ E E7EȩEdE/EȩE  D} .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU } L ? .  t`GBJ ~DEHI B V0dV}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh}DEL8HI4 0 HI,0 0  9 .G VLO},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHI} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI} VY8 B V  @  /DE `E:D8:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO }STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N'}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx }DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC}COPY--FROM, TO?OPTION NOT ALLOWED697 FREE SECTORS COPYING---D8:COPY32.COMl# 0|D .L/%#}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E }1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A}LLOWED IN DESTINATION 0 <.|K '$ܠS $S '$O !$M $$ $TJ !$S '$ Z$ S !$ S $ $ʠ}S '$ S $$۠S $SSԤ K$TJ !$dS '$dSn>> $N $Lj> Z$ҠN H$S $"M $L >pS !$(M $L}>LV?TJ !$S '$"M !$pS $S '$ Z$ S !$ S $ $>j?ʠS '$ S $$۠S $SSԤ K$TJ !$dS '$dS } @} ??COPYRIGHT 1979,} REGENTS OF U.C.,LAWRENCE HALL OF SCIENCE.##AUTHOR: PAUL LIPKIN, 11/20/79 }AR@ Ap}INSTRUCTIONS --(%   --(%  --(% } ````` --(% `  ` --(%  `*` --(% }   ` --(% ` ` --(%  `  }#--(%   `*` (--(%  `  ` ---(% } ````` 2--(% 7--(% <((( }  A(((   F(((   K,,($ }   P--(%   U**("  Z--(% }   _--(%   de6-@6-@hG%6-P:H:@,$@}%@,G6-P:H:@,$@%@,i6-@n<<;@,;@,;@,;@@,;@,$}-@@$  IN | OUT$-@@$  6-@@)-@@2 |6 } A2# Au#GO GET THE FUNCTION!@ AP AEOUT ROUTINE6-%@!@} AR @ A AU-@3@"@ A@  6}-@ A`  6-$$LI%2@@@@IAA A0}APQ-@%@ V Ap`-@%@e Apj-@%@o A~-@%}@ A$6-%@  $)6-%@"@)6-@  } $W%2@@@@36-%@M+@,*+ @,W A@@A}`-@   $-%@@   $!-@@ &!  } 0"@   $ 06-$7%2@AP@@7-@@}"A0  (6-- A`2'-@@'  <6-@}F AP'-@@'  Z$d(-@@(  n$x-@3@}{"@ A@  6-@ A`  6-$G%2@}@0@@36-%@G@A0-@1 ` AP-@ %@}$ @ `$ AP 6-@ A%6-&@%@Ap-@5 `} A"-@3%@'#!6@ `# A,6-@ AP6$| } ~  } A@ %%2@A@@ -@@  A A A A } A A A   G%2@G2@$ I}NPUT6-6.AR-@@" WHAT NUMBER GOES IN ADA}R@ 6.=:,!A6.+BIG 6A 6.-BIG-B:,@6@-@0%@"}-@@ 7<,-@@  "  , 6-@@%@ 7<,}J-@@  T  ^ h-@@r 7<,|-@@    } -@$%@ 7<, -@&B:,%@ -@@"44 + } $TRAP ROUINE FOR INPUT0TRAP ROUTINE:-@1@"D  }N A@OUT ROUTINE- FOFX=ANSWER 6.=:,!A6.+BIG 6A 6.-BIG-@B:},-@@-@@ 7<,-@@     !@AF}@-@@&  7<,-@@      AG "@ AG}*-@&@4 7<,>-@@  H  R \-@B:,%@&f 7}<,p-@@  z    7<, $-@@ NOW TRY AND FIGURE} OUT  WHAT WILL COME OUT.  WHAT IS YOUR GUESS A5 "6-@ 6-6@}$PREWARD ROUTINEZ-@@d  n  x% %   } -@@"6@ AS HOORAY,YIPPEE!!!  YOU GOT IT -@ }@-@@''2@$@@@0@  %%2@ }0@ AS YOU HAVEN'T QUITE GOT THE RULE YET7 @ 7 DO YOU WAN }T TRY THIS RULE AGAIN@AU A-@@    } . . #  4NO AU{$|-@@" } THE RULE IS: -@A  X""  WELCOME TO THEY0@@@}Z0@@ @b((  LAWRENCE HALL OF SCIENCE'Sl% %  Πv1  1 #THIS M}ACHINE HAS A SECRET MATH RULE&& WHICH YOU SHOULD TRY TO GUESS.,, $ENTER A NUMBER AND THEN PRESS -- %THE FU}NCTION MACHINE WILL CHANGE YOUR,, $NUMBER AND THEN PRINT THE NEW NUMBER$  $ WHAT LEVEL DO YOU WANT""  1: A} GOOD PLACE TO BEGIN  2: A LITTLE BIT HARDER  3: COULD BE TRICKY!!  4: FOR MATH WHIZ'S ONLY9 9 .T}YPE IN THE NUMBER (1-4) AND THEN TYPE  A?5+@,*+@,*+@,*+@,? A}3"@6-@'6-@36-@3"@6-@'6-@36-@3"@6-}@'6-@36-@3"@6-@'6-@36-0@0@ }} $LFUNCTION FINDER`''AuPAvAvPAw~"@Au 6-%6. NUMBER + 6}7@<@,.=:,$&6-@$&6.2 TIMES NUMBER$ 6-$%6. * NUMBER + 767@}<@,.=:,767@<@,.=:,$6-$%@&$6. NUMBER * NUMBER 6.=:@&$,,}B:,"@)67@<@,.,$367@<@,.+367@<@,. $''&@AwAw0}AwP6-@$$%@(!!6.2 * NUMBER * NUMBER + 4-$26-@$$&@<# 6.2 * NUMBER *} NUMBER -3#$F6-@$$%@$P((6.2 * NUMBER *NUMBER + 2 *NUMBERZ$@-@2@(J  }T ARPc-@ @"h  m AP   Aq D:FUN}5,10,182,10,144,30,182,3"h  m AP   Aq D:FUN$1L 2L>%L+Lx%L'L'L'L(L(L(LLLLLL*L*LE(L(Lk*LR(L@*L|'LM,L*L!(L9'LJ'Lk'L&L&L*L*L&'Ls(LP'L&L00L[0L}$N $L!? Z$͠N H$S $S $L>L @pS !$"M $Ln?k??L @TJ !$S '$pS !$"M $S '$ Z$ S !$ } S $ $ʠS '$ S $$۠S $SSԤ K$TJ !$dS '$dS $N $?i@L? Z$"O H$S $S $L?TJ !$!}S '$ܠS $TJ $ S $S '$ Z$ S !$ S $ $ʠS '$ S $$۠S $SSj@@Ԥ K$TJ !$dS '$dS $N"} $L@ Z$ҠN H$S $S $L7@ Z$ S !$ S $ $ʠS '$ S $$۠S $SS@iA K$ S $S $L>`#}TJ !$M $$ $ Z$'O H$ ?$ Z$EO H$ ?$ Z$ ?$ Z$YO H$ J % Z$ -$ 9$RS '$RS !$jSjAA $LATJ !$}$|S '$RS !$jS $LAǠN !$|S '$`TJ !$M $$ $ Z$rO H$ ?$ Z$O H$ ?$ Z$ ?$ Z$O H$AgBTJ !$%}M $$ $|S !$ǠN $LBLB Z$O H$ ?$ Z$ҠO H$ ?$TJ !$ S '$.M !$S '$S !$4M $ $ĠS '$hBB&} S % S !$ $ĠS '$S !$ $ԮS $S $M $LLB S $̠O $L>Bԩ %S !$ $ĠS '$S !$ $'}BeCS $LC Z$ޠO H$ ?$ Z$O H$ ?$pS !$4M $L9C Z$ ?$ Z$P H$pS !$4M $LQCLCJ % Z(}$ -$ fCCS <$TJ !$M $$ $ Z$O H$ ?$ Z$O H$ ?$ Z$ ?$ Z$!P H$ ?$ԩթ EP腐S)} $LCLC`TCdDJ !$N $$ $ Z$HP H$ ?$ Z$(S K$TJ !$dS '$dS $UP $L%DL2 Z$[P H$ ?$*}  $  $ Z$|PeDD H$ ?$ Z$ ?$ Z$P H$ ?$ Z$ ?$ Z$ ?$ Z$P H$ ?$ Z$ܠP H$ ?$ Z$P H$ ?$+} Z$ Q H$ ?$ Z$FQ H$ ?$ Z$ ?$DdE Z$ ?$ Z$kQ H$ ?$ Z$Q H$ ?$ Z$Q H$ ?$ Z$Q H$ ?$ Z$ˠQ H$ ?$,} Z$ ?$ Z$Q H$ ?$@J % Z$ -$ 9$SeEE '$S !$TJ $ĠS '$S !$.M $ĠS $ĠS '$S !$(M $ĠS $-}ĠS '$S !$"M $ĠS $LEL@JS !$TJ $EcFLFM !$S '$"M !$S '$ΠM !$FS '$S !$.M $L.}RFM !$S '$.M !$S '$pM !$FS '$S !$(M $dFFLFTJ !$S '$"M !$S '$(M !$FS '$S !$"M /}$LF(M !$S '$"M !$S '$M !$FS '$S !$ $ĠS '$FbGS !$ $ԮS $FS !$ $ĠS '$S !$ $Ԯ0}S $ Z$RJ H$ ?$`S !$ $LNGLGLKHLIS !$TJ $LfGcGGLGXS !$S $jS '$2R􅐩S 1} $S !$ $S $`.M !$XS $jS '$} !NNAP @0@1``@5``?}A@"NOWHAT NUMBER GOES INA+BIGA -BIG  @$ @} @COO @ NOW TRY AND FIGURE OUT @#WHAT WILL COME OUT.WHAT IS YOUR GUESS@ A} OP HOORAY,YIPPEE!!!@YOU GOT IT YOU HAVEN'T QUITEB}GOT THE RULE YETP{PDO YOU WANT TRY THIS RULE AGAIN NOTHE RULE IS:A C} WELCOME TO THE@&|PP LAWRENCE HALL OF SCIENCE'S ΠśTHIS MACHINE HAS A SECRET MATH RULEWD}HICH YOU SHOULD TRY TO GUESS.PjQENTER A NUMBER AND THEN PRESS ΛTHE FUNCTION MACHINE WILL CHANGE YOURNUMBER AND THEE}N PRINT THE NEW NUMBERkQQWHAT LEVEL DO YOU WANT 1: A GOOD PLACE TO BEGIN 2: A LITTLE BIT HARDER 3: COULD BE TRICKYF} 4: FOR MATH WHIZ'S ONLYQYRTYPE IN THE NUMBER (1-4) AND THEN TYPE Λ@FAuPAvAvPAwNUMBER + 2 TIMEG}S NUMBER * NUMBER + ZRR NUMBER * NUMBER +AwAw0AwP2 * NUMBER * NUMBER + 42 * NUMBER * NUMBER -32 * NUMBH}ER *NUMBER + 2 *NUMBER@(RR  $NUMBER + 42 * NUMBER * NUMBER -32 * NUMBS5JMP L1550L1530LDX #X93JSR LD0LDX #X11JSR ADDLDX #X65JSR LD1JSR IPOSL1540LDX #X11JSR LD0LDX #X85JSR LTLDA FR0BNE *+5JMP A13LDA #0JSR SCB2LDX #X106JSR SPRJMP L155!K}0A13L1545LDX #X63JSR LD0LDX #X11JSR STOJMP L1500L1550LDX #X12JSR LD0LDX #X35JSR SUBLDX #X12JSR STOLDX #X63JSR LELDA FR0BNE *+5JMP A14JMP L1570A14L1555LDX #X107JSR LD0LDX #X12JSR LD1JSR IPOSL1560LDA #0JSR SCB2LDX #X108JSR SPRL1565JMP L1590L!N}1570LDX #X72JSR LD0LDX #X12JSR ADDLDX #X62JSR LD1JSR IPOSL1575LDX #X12J!O}SR LD0LDX #X109JSR GTLDA FR0BNE *+5JMP A15LDA #0JSR SCB2LDX #X110JSR SPRJMP L1590A15L1580!P}LDX #X65JSR LD0LDX #X12JSR STOJMP L1550L1590RTSL3196L3197L3198L3200JSR L4000L3203LDA #<2!Q}STA FR0LDA #<4LDX #<4LDY #<200JSR VOXL3205LDX #X35JSR LD0LDX #X3JSR STOA16L3210JSR L1000L32!R}20JSR L1300L3230JSR L1400L3240JSR L1500L3250JSR L1100L3290JSR L1200L3310JSR L1200L3350LDX #X3JSR INM!S}LDX #X93JSR GTBCS *+5JMP A16L3360LDA #<2STA FR0LDA #<0LDX #<0LDY #<0JSR VOXLDA #<1STA FR0LDA #<0LDX !T}#<0LDY #<0JSR VOXL3999RTSL4000L4003LDX #X76JSR LD0LDX #X18JSR STOLDA #X11!U}2STA P1+1LDA #X16LDY #<0.FIL 'D1:ASSEM.SGB'LD0LDX #X18JSR STOLDA #X11 BLDX #>0JSR MVCL4005LDY #0STY 752L4010LDX #X65JSR LD0LDX #X113JSR LD1JSR IPOSL4020LDA #0JS-W}R SCB2LDX #X114JSR SPRL4025LDX #L4400JSR TRAPL4030LDA #0JSR SCB2JSR GETLJSR GETNLDX #X18JSR STOL4040LDY #1STY 752L4050LDX #X18JSR LD0JSR STRLDA #S0STA P1+1LDA #X16LDY #<20LDX #>20JSR MVCL4060LDX #X18JSR LD0LDX #X115JSR GTLDA FR0BNE *+5JM-Z}P A17LDA #X116STA P1+1LDA #X16LDY #<4LDX #>4JSR MVCA17L4070LDX #X18-[}JSR LD0LDX #X118JSR LTLDA FR0BNE *+5JMP A18LDA #X119STA P1+1LDA #X16-\}LDY #<4LDX #>4JSR MVCA18L4080LDX #X16JSR LENLDX #X3JSR STOA19L4090LDX #X103JSR -]}LD0LDX #X3JSR ADDLDX #X113JSR LD1JSR IPOSL4100LDX #X35JSR LD0LDX #X4JSR -^}STOA20L4110LDA #0JSR SCB2LDX #X3JSR LD0LDX #X3JSR SUBJSR FPILDX #T2JSR STOLDX #X3JSR LD1LDX #X16-1JSR SADLDX T2LDY T2+1STX FR1STY FR1+1LDX FR0LDY FR0+1JSR SPR2L4120LDX #X35JSR LD0LDX #X20JSR STOA21LDX #X20JSR INMLDX #X93JSR GTBCS *+5JMP A21L41-a}30LDA #0JSR SCB2LDX #X121JSR SPRL4140LDX #X4JSR INMLDX #X61JSR GTBCS *+5JMP A20L-b}4150LDX #X35JSR LD0LDX #X4JSR STOLDX #X62JSR LD0LDX #X3JSR ADDLDX #X122JSR STOA22L4160LDA #0JSR SCB2LDX #X3JSR LD0LDX #X3JSR SUBJSR FPILDX #T2JSR-d} STOLDX #X3JSR LD1LDX #X16-1JSR SADLDX T2LDY T2+1STX FR1STY FR1+1LDX FR0LDY FR0+1JSR SPR2L-e}4170LDX #X35JSR LD0LDX #X20JSR STOA23LDX #X20JSR INMLDX #X93JSR GTBCS *-f}+5JMP A23L4180LDA #0JSR SCB2LDX #X123JSR SPRL4190LDX #X4JSR INMLDX #X122JSR GTB-g}CS *+5JMP A22L4200LDX #X35JSR LD0LDX #X4JSR STOA24L4210LDA #0JSR SCB2LDX #X3JSR LD-q}RbSYSEQU ABCbSYSLIB FP b/SYSLIB INTb8IASM OBJb%DOS SYSb*DUP SYSB@FUN BdFUNNY OBJCASSEM SGACDATA ASMDATA ASMFVASSEM SGBEASSEM SGCASSEM SGD)DSEG ASMCASSEM SGDrDATA ASMDSEG ASMCASSEM SGE ) Ԡ! ΂ ΂` >]ФIL>]P H >] R h` `]QQ]DD]UU"";HHhxXHH`i`$0``$JJJJ)`$0 НХjIFL``,$0}`}L ^i`(Fejf`e` + +HI}^H\k _hh M N H `a`a  ` 鋭 ` ` B Cʑi(ɼ`ຐྐ BF8`5d5 H Lnƍ`H0 ԩЩЩЩ Щuh@H<h@0LDX #X3JSR SUBJSR FPILDX #T2JSR STOLDX #X3JSR LD1LDX #X16-1JSR SADLDX T-r}2LDY T2+1STX FR1STY FR1+1LDX FR0LDY FR0+1JSR SPR2L4220LDX #X35JSR LD0LDX #X20JSR STOA25LDX-s} #X20JSR INMLDX #X93JSR GTBCS *+5JMP A25L4230LDA #0JSR SCB2LDX #X121JSR SPRL4235-t}LDX #X4JSR INMLDX #X59JSR GTBCS *+5JMP A24L4240LDX #X124JSR LD0LDX #X3J-u}SR ADDLDX #X83JSR LD1JSR IPOSL4245LDA #0JSR SCB2LDX #X3JSR LD0LDX #X3JSR SUBJSR FPI-v}LDX #T2JSR STOLDX #X3JSR LD1LDX #X16-1JSR SADLDX T2LDY T2+1STX FR1STY FR1+1LDX FR-w}0LDY FR0+1JSR SPR2JSR CRL4250LDX #X3JSR LD0LDX #X120JSR ADDLDX #X3JSR STOLDX #X35JSR LTBCS *+5JMP A19L4270LDX #X16JSR LENLDX #X59JSR ISUBLDX #T1JSR STOLD-y}X #X22JSR LD0LDX #X62JSR ADDLDX #T1JSR LD1JSR POSL4280LDA #0JSR SCB2LDX #<10LDY #>-z}10STX FR1STY FR1+1LDX #X16JSR SPR2L4290LDX #X35JSR LD0LDX #X113JSR LD1JSR IPOSL4-{}300LDA #0JSR SCB2LDX #X125JSR SPRL4310RTSL4320L4400L4410LDX #X104JSR LD0LDX #-|}X113JSR LD1JSR IPOSL4420LDA #0JSR SCB2LDX #X127JSR SPRL4430JMP L4010L4500L4510LDX #X21JSR-}} LD0JSR STRLDA #S0STA P1+1LDA #X17LDY #<20LDX #>20JSR MVCL4520LDX #X21-~}JSR LD0LDX #X115JSR GTLDA FR0BNE *+5JMP A26LDA #X116STA P1+1LDA #X1-}7LDY #<4LDX #>4JSR MVCA26L4530LDX #X21JSR LD0LDX #X118JSR LTLDA FR0BNE *+5JMP A27LDA #X119STA P1+1LDA #X17LDY #<4LDX #>4JSR MVCA27L4540LDX #X35JSR LD0LDX #<-}X3LDY #>X3JSR STOLDX #X17JSR LENLDX #X128JSR STOA28L4550LDX #X129JSR LD0LDX #X90JSR LD1JSR IPOSL4555LDX #X35JSR LD0LDX #X4JSR STOA29L4560LDA #0JSR SCB2LDX #X3JSR LD0LDX #X3JSR SUBJSR FPILDX #T2JSR STOLDX #X3JSR LD1LDX #X17--}1JSR SADLDX T2LDY T2+1STX FR1STY FR1+1LDX FR0LDY FR0+1JSR SPR2L4570LDX #X35JSR LD0LDX #X20-}JSR STOA30LDX #X20JSR INMLDX #X93JSR GTBCS *+5JMP A30L4580LDA #0JSR SCB2LDX #X12-}3JSR SPRL4590LDX #X4JSR INMLDX #X61JSR GTBCS *+5JMP A29L4600LDX #X22JSR LD0LDX #<-}X62LDY #>X62JSR GTLDA FR0BNE *+5JMP A31JMP L4640A31L4610LDX #X35JSR LD0LDX #X4JSR STOLDX #<-}X61LDY #>X61JSR LD0LDX #X22JSR SUBLDX #X130JSR STOA32L4620LDA #0JSR SCB2LDX #X3J-}SR LD0LDX #X3JSR SUBJSR FPILDX #T2JSR STOLDX #X3JSR LD1LDX #X17-1JSR SAD-}LDX T2LDY T2+1STX FR1STY FR1+1LDX FR0LDY FR0+1JSR SPR2L4625LDX #X35JSR LD0LDX #X20JSR STOA3-}3LDX #X20JSR INMLDX #X93JSR GTBCS *+5JMP A33L4630LDA #0JSR SCB2LDX #X121JSR SPR-}L4635LDX #X4JSR INMLDX #X130JSR GTBCS *+5JMP A32L4637JMP L4700L4640LDX #X22JSR LD-}0LDX #X61JSR EQLDA FR0BNE *+5JMP A34JMP L4700A34L4650LDX #X35JSR LD0LDX #X4JSR ST-}OLDX #X22JSR LD0LDX #X61JSR SUBLDX #X131JSR STOA35L4660LDA #0JSR SCB2LDX #X3JSR LD0LDX #X3JSR SUBJSR FPILDX #T2JSR STOLDX #X3JSR LD1LDX #X17-1-}JSR SADLDX T2LDY T2+1STX FR1STY FR1+1LDX FR0LDY FR0+1JSR SPR2L4670LDX #X35JSR LD0LDX #X20JS-}R STOA36LDX #X20JSR INMLDX #X93JSR GTBCS *+5JMP A36L4680LDA #0JSR SCB2LDX #X132-}JSR SPRL4690LDX #X4JSR INMLDX #X131JSR GTBCS *+5JMP A35L4700LDX #X35JSR LD0LDX #<-}X4LDY #>X4JSR STOLDX #X17JSR LENLDX #X35JSR ADDLDX #X3JSR SUBLDX #X133J-}SR STOA37L4710LDA #0JSR SCB2LDX #X3JSR LD0LDX #X3JSR SUBJSR FPILDX #T2JSR STOLDX #<-}X3LDY #>X3JSR LD1LDX #X17-1JSR SADLDX T2LDY T2+1STX FR1STY FR1+1LDX FR0LDY FR0+1JSR SPR2L4720LDX #<-}X35LDY #>X35JSR LD0LDX #X20JSR STOA38LDX #X20JSR INMLDX #X93JSR GTBCS *+5JMP A38-}L4730LDA #0JSR SCB2LDX #X123JSR SPRL4740LDX #X4JSR INMLDX #X133JSR GTBCS *+5JMP -}A37L4745LDA #0JSR SCB2LDX #X3JSR LD0LDX #X3JSR SUBJSR FPILDX #T2JSR STOLDX #X3JSR LD1LDX #X17-1JSR SADLDX T2LDY T2+1STX FR1STY FR1+1LDX FR0LDY FR0+1JSR SPR2L4750LDX #X3JSR INMLDX #X128JSR GTBCS *+5JMP A28L4760RTSL5000LDX #X35JSR LD0LDX #X92JSR-} LD1JSR IPOSL5010LDA #0JSR SCB2LDX #X134JSR SPRJSR CRL5020LDA #0JSR SCB2LDX #X136JSR SPR-}JSR CRL5030LDA #0JSR SCB2JSR CRLDA #0JSR SCB2LDX #X137JSR SPRL5035LDX #L8035JSR TRAPL504-}0LDA #0JSR SCB2JSR GETLJSR GETNLDX #X15JSR STOL5050LDX #X15JSR LD0LDX #X21JSR EQ-}LDA FR0BNE *+5JMP A39LDX #X35JSR LD0LDX #X24JSR STOA39L5060LDX #X15JSR LD0LDX #X21JSR NELDA FR0BNE *+5JMP A40LDX #X120JSR LD0LDX #X24JSR STOA40L5100RTSL5200L52-}10LDX #X35JSR LD0LDX #X92JSR LD1JSR IPOSL5220LDA #0JSR SCB2LDX #X139JSR SPRJSR C-}RL5230LDA #0JSR SCB2LDX #X140JSR SPRJSR CRL5240LDA #0JSR SCB2JSR CRLDA #0JSR SCB2LDX #X1-}41JSR SPRL5250LDX #X35JSR LD0LDX #X92JSR LD1JSR IPOSL5255LDX #X24JSR LD0LDX #X120JSR EQLDA FR0BNE *+5JMP A41JMP L5300A41L5260LDA #0JSR SCB2LDX #X142JSR SPR.FIL 'D1:ASSEM.-}SGC' #>X120JSR EQLDA FR0BNE *+5JMP A41JMP L5300A41L5260LDA #0JSR SCB2LDX #X142JSR SPR.FIL 'D1:ASSEM.,JSR CRL5270LDA #0JSR SCB2LDX #X144JSR SPRJSR CRL5275LDX #X35JSR LD0LDX #X3JSR STO1}A42L5280LDX #X63JSR LD0LDX #X4JSR STOA43L5282LDX #X4JSR LD0LDX #X64JSR 1}MULJSR FPILDX #T1JSR STOLDA #<1STA FR0LDA #<4LDX #<10LDY T1JSR VOXL5283LDX #X3JSR LD0JSR FPI1}LDX #T1JSR STOLDX #X4JSR LD0JSR FPILDA FR0LDX T1LDY #<2JSR SCOLL5285LDX #X4JSR INM1}LDX #X60JSR GTBCS *+5JMP A43L5290LDX #X3JSR INMLDX #X143JSR GTBCS *+5JMP A42L52921}LDA #<1STA FR0LDA #<0LDX #<0LDY #<0JSR VOXL5293LDX #X28JSR LD0JSR FPILDX #T1JSR STOLDX #X29JSR LD0JSR FPILDA FR0LDX T1LDY #<2JSR SCOLL5295JMP L5310L5300LDA #0JSR SCB2LDX #X145JSR S1}PRJSR CRL5305LDA #0JSR SCB2LDX #X146JSR SPRJSR CRL5310LDX #X22JSR LD0LDX #X64JS1}R LTLDA FR0BNE *+5JMP A44LDA #0JSR SCB2JSR CRLDA #0JSR SCB2LDX #X147JSR SPRA44L5312LDX #X1}22JSR LD0LDX #X64JSR GELDA FR0BNE *+5JMP A45JMP L5500A45L5315LDX #L8000JSR TRAPL5320LDA 1}#0JSR SCB2JSR GETLLDX #<10LDY #>10STX FR1STY FR1+1LDX #X25JSR GETSL5330LDX #X35JSR LD0LDX #1}X92JSR LD1JSR IPOSL5340LDA #0JSR SCB2LDX #X140JSR SPRJSR CRL5350LDA #0JSR SCB2LDX #X140JSR SPRJSR CRL5360LDA #0JSR SCB2JSR CRLDA #0JSR SCB2LDX #X148JSR SPRJSR CRL5370LDA #<2STA 1}C1LDA #>2STA C1+1LDA #<10STA C2LDA #>10STA C2+1LDA #X149STA P1+1LDA #X25STA P21}+1JSR EQSLDA FR0BNE *+5JMP A46JMP L5500A46L5499RTSL5500LDX #X35JSR LD0LDX #X113JSR LD1JS1}R IPOSL5510LDA #0JSR SCB2LDX #X150JSR SPRJSR CRL5520LDA #0JSR SCB2LDX #<40LDY #>40STX FR1STY FR1+1L1}DX #X30JSR SPR2L5530LDX #X35JSR LD0LDX #X20JSR STOA47LDX #X20JSR INMLDX1} #X151JSR GTBCS *+5JMP A47L5600JMP L0L7000LDA #0JSR SCB2LDX #X152JSR SPRJSR CRL7001LDA #1}<10LDX #<2LDY #<1JSR SCOLL7002LDA #<2LDX #<9LDY #<2JSR SCOLL7010LDA #0JSR SCB2LDX #X154JSR SPRJSR C1}RL7020LDA #0JSR SCB2JSR CRLDA #0JSR SCB2LDX #X155JSR SPRJSR CRL7030LDA #0JSR SCB2JSR CRLDA #0JSR S1}CB2JSR CRLDA #0JSR SCB2LDX #X156JSR SPRJSR CRL7040LDA #0JSR SCB2LDX #X157JSR SPRJSR CRL71}050LDA #0JSR SCB2LDX #X158JSR SPRJSR CRL7060LDA #0JSR SCB2LDX #X159JSR SPRJSR CRL7065LDA1} #0JSR SCB2LDX #X160JSR SPRJSR CRL7070LDA #0JSR SCB2JSR CRLDA #0JSR SCB2JSR CRLDA #0JSR SCB2LDX #X161JSR SPRJSR CRL7080LDA #0JSR SCB2LDX #X162JSR SPRJSR CRL7090LDA #0JSR SCB2LDX #X163JSR SPRJSR CRL7100LDA #0JSR SCB2LDX #X164JSR SPRJSR CRL7110LDA #0JSR SCB2LDX #X1651}JSR SPRJSR CRL7113LDA #0JSR SCB2JSR CRLDA #0JSR SCB2LDX #X166JSR SPRJSR CRL7115LDX #L811}00JSR TRAPL7120LDA #0JSR SCB2JSR GETLJSR GETNLDX #X26JSR STOL7125LDX #X26JSR LD0LDX #X35JSR NELDX #T1JSR STOLDX #X26JSR LD0LDX #X63JSR NELDX #T1JSR LANDL1}DX #T1JSR STOLDX #X26JSR LD0LDX #X62JSR NELDX #T1JSR LANDLDX #T11}JSR STOLDX #X26JSR LD0LDX #X61JSR NELDX #T1JSR LANDLDA FR0BNE *+5JMP A48JMP L8100A1}48L7130LDX #X26JSR LD0LDX #X35JSR EQLDA FR0BNE *+5JMP A49LDX #X77JSR LD0LDX #X28JSR STOLDX #X61JSR LD0LDX #X29JSR STOLDX #X85JSR LD0LDX #X13JS1}R STOA49L7135LDX #X26JSR LD0LDX #X63JSR EQLDA FR0BNE *+5JMP A50LDX #X90JSR LD0LD1}X #X28JSR STOLDX #X63JSR LD0LDX #X29JSR STOLDX #X73JSR LD0LDX #X13JSR STOA50L7140LDX #X26JSR LD0LDX #X62JSR EQLDA FR0BNE *+5JMP A51LDX #X35JSR1} LD0LDX #X28JSR STOLDX #X61JSR LD0LDX #X29JSR STOLDX #X62JSR LD0LDX #X13JSR STOA51L7145LDX #X26JSR LD0LDX #X61JSR EQLDA FR0BNE *+5JMP A52LDX #1}X62JSR LD0LDX #X28JSR STOLDX #X61JSR LD0LDX #X29JSR STOLDX #X76JSR LD0L1}DX #X13JSR STOA52L7150LDX #X28JSR LD0JSR FPILDX #T1JSR STOLDX #X29JSR LD1}0JSR FPILDA FR0LDX T1LDY #<2JSR SCOLL7160LDX #X13JSR LD0JSR FPILDX #T1JSR STOLDX #X29JSR LD0JSR FPILDA FR0LDX T1LDY #<4JSR SCOLL7190LDA #0JSR SCB2LDX #X34JSR SPRJSR CRL7200RTSL75001}L7520LDX #X26JSR LD0JSR FPILDX FR0DEXBNE *+5JMP L7550DEXBNE *+5JMP L7600DEXBNE *+5JMP L7650DEXBNE 1}*+5JMP L7700L7550LDX #X31JSR LD0LDX #X35JSR EQLDA FR0BNE *+5JMP A53JMP L7580A53L7555LDX #<1}X18LDY #>X18JSR LD0LDX #X32JSR ADDLDX #X21JSR STOL7560LDA #X172STA P1+1LDA1} #X30LDY #<9LDX #>9JSR MVCL7565LDX #X32JSR LD0JSR STRLDA #S0STA P1+1L1}DA #X30+9LDY #<20LDX #>20JSR MVC2L7566RTSL7580LDX #X63JSR LD0LDX #X18JSR 1}MULLDX #X21JSR STOLDA #X173STA P1+1LDA #X30LDY #<14LDX #>14JSR MVCL71}590RTSL7600LDX #X32JSR LD0LDX #X18JSR MULLDX #X31JSR ADDLDX #X21JSR STO1}L7610LDA #X174STA P1+1LDA #X30LDY #<14LDX #>14JSR MVCL7620LDX #X32J1}SR LD0JSR STRLDA #S0STA P1+1LDA #X30+0LDY #<20LDX #>20JSR MVC2LDX #X31}1JSR LD0JSR STRLDA #S0STA P1+1LDA #X30+13LDY #<20LDX #>20JSR MVC2L7630RTSL761}50LDX #X18JSR LD0LDX #X18JSR MULLDX #X90JSR ADDLDX #T1JSR STOLDX #X31JSR LD0LDX #X32JSR MULLDX #T1JSR ISUBLDX #X21JSR STOL7660LDA #X175STA P1+1LDA #X30LDY #<19LDX #>19JSR MVCL7670LDX #X31JSR LD0LDX #X321}JSR MULLDX #X90JSR ISUBJSR STRLDA #S0STA P1+1LDA #X33LDY #<20LDX #>20J1}SR MVCL7675LDX #X33JSR LENLDX #X63JSR EQLDA FR0BNE *+5JMP A54LDA #X33STA P11}+1LDA #X30+17LDY #<10LDX #>10JSR MVC2RTSA54L7680LDA #X176STA P1+1LDA #X30+17LDY #<1LDX #>1JSR MVC2LDA #X33STA P1+1LDA #X30+18LDY #<101}LDX #>10JSR MVC2L7690RTSL7700LDX #X32JSR LD0LDX #X35JSR SUBJSR FPILDX FR0DEXBNE *+5JMP L71}710DEXBNE *+5JMP L7730DEXBNE *+5JMP L7750L7710LDX #X63JSR LD0LDX #X18JSR MULLDX #X18JSR MULLDX #X61JSR ADDLDX #X21JSR STOL7720LDA #X180STA P1+1LDA #X30LDY #<23LDX #>23JSR MVCL7725RTSL7730LDX #X63JSR LD0LDX #X18JSR MULLDX #X18JSR MULLDX #X62JSR SUBLDX #X21JSR STOL7740LDA #X181STA P1+1LDA #X30LDY #<22LDX #>22JSR MVCRTSL7750LDX #X63JSR LD0LDX #X18JSR MULLDX #X18JSR MULLDX #T2JSR STOLDX #X63JSR LD0LDX #X18JSR MULLDX #T2JSR ADDLDX 1}#X21JSR STOL7760LDA #X182STA P1+1LDA #X30LDY #<30LDX #>30JSR MVCL7771}0RTSL8000LDX #X51JSR LD0LDX #X183JSR LD1JSR IPOSL8010LDA #0JSR SCB2LDX #X184JS1}R SPRL8020JMP L5250L8035LDX #X93JSR LD0LDX #X113JSR LD1JSR IPOSL8040LDA #0JSR SCB2LDX #X185JSR SPRL8045JMP L5000L8100LDA #0JSR SCB2LDX #X186.FIL 'D1:ASSEM.SGD'DA #0JSR SCB2LDX #X186.FIL 'D1:ASSEM.SGD'DA #0JSR SCB2LDX # Trace:BASIC exit I`Դ$}` W,L* )ԩ-ȘH h00,)`@?"6?D'8h4d=u#@(>33!%}fffg?@W)WyQB'h M,ԭ ҍ,) ٢Ԡ, L( ?,L- ݥ Q0OLD')ԥ)8@0=,j,H&} ޢ hԅ`, L+0t8??Ԣ ݢ, ڢ, fک ݢ ?, (ۢ fڢ, '} (n Ƞ, e)`Π, L(ۥIԩ, - IԢ>^ԝ ڢ ݢà. @ݢ+} ݢ ݢ. @ݢ (ۢ ڢ ڢ fڭI miϪi. fhIԥ Π, `LD,}ڥ)D"@Dڔ à. ``ԅL٥I`à. (`` k' ٢`BԝK)I JD0EL+S-}:)H)h y` ?, ?, ٥TԅUՅV`&B +Nԩ ݦLԽML ?, ?, ٠%LMԝN.}BL+ ?, d1` BHIL+ ?, d1`B JKL+ 00 ٥ԅUՅV ?, 00 ٥ԅT`)ҩҊ H) hҘ/}` ٥)xԩL ٥))L &L& ٥)pԩL ٥)|L&L & $2}2RJRJRS*TL 2 $ Z$R0}J H$ ?$ $ ;D Z$`J H$ ?$ Z$J H$ ?$ Z$J H$ ?$ Z$ؠJ H$ ?$ Z$J H$ ?$ Z$$K~22 H$ ?$ Z$JK 1}H$ ?$ Z$pK H$ ?$ Z$K H$ ?$ Z$K H$ ?$ Z$K H$ ?$ Z$J H$ ?$ Z$L H$ ?$ Z$.L H$ ?$2}3 Z$UL2} H$ ?$ Z$UL H$ ?$ Z$vL H$ ?$ Z$L H$ ?$ Z$ǠL H$ ?$ Z$L H$ ?$ Z$L H$ ?$M !$:S '$M !$@S~33}3 '$TJ !$ u$"M $TJ $ o$S '$TJ !$ u$(M $.M $ o$S '$TJ !$pS '$TJ !$.M $$ $ Z$LM H$TJ !$(4}M $$3}4 $ Z$\M H$M !$"M $$ $TJ !$ S '$ Z$fM H$ S $4M $L,4 k9 *GpS !$(M $Li4 A r=pS5} !$TJ $pS~44 '$pS !$"M $L4 ApS !$4M $L4LK4LCjM !$pM $$ $S !$TJ $L4L4 Z$vM 6}H$TJ !$S '$L54{5 Z$M H$M !$S '$`ԩ %S !$ $LF5LZ5Ln5L5M !$VM $$ $L5M7} !$4M $$ $L5M !$M $$|55 $L5M !$M $$ $L5`S !$TJ $S '$ Z$M H$`S !$TJ $S '$M $8}L5TJ !$S '$ Z$ԠM H$`5z6 %(S !$TJ $(S '$4M $ĠS '$(S !$M $ĠS $LF6L6(S !9}$M $L^6L6M !$(S $$ $ Z$M H${66 Z$M H$`(S !$M $VM $$ $ Z$M H$`N !$(S $M $$ :}$ Z$ N H$ Z$N H$(S !$N $L7 Z$N6y7 H$ Z$N H$M !$(S '$`ԩ %ΠM !$(M $$ $.;}S !$M $LO7Ll7 Z$'N H$M !$.S '$L7ΠM !$(M $$z77 $ Z$5N H$TJ !$.S '$L7ΠM !$M $$ $ Z$<}BN H$`ΠM !$M $$ $ Z$ON H$`jM !$4M $$ $4S !$TJ $7w8L7L8 Z$vM H$TJ !$4S '$L68 Z$M H$=}M !$4S '$`ԩ %:S !$TJ $:S '$:M $Lj8L8cN !$:S $$x88 $ Z$iN H$L8N !$:S $:M $$>} $:S !$ΠM $L8 Z$oN H$L8.M !$:S '$L78@S !$TJ $@S '$.M $8u9L8L9uN !$@S $$ $ Z${?}N H$Lj9jM !$@S $(M $$ $@S !$N $LY9 Z$N H$Lj9:M !$@S '$L8` 9ԩv99 %TJ !$ S '$ 4 }LDA #X288STA P1+1LDA T2STA P2LDA T2+1LDY #<1LDX #>1JSR MVCLDA #X89STA P1+1LDA .A}#X89+5719LDY #<5720LDX #>5720JSR MVCLDX #X1JSR LD1LDX #X89-1JSR SADLDX .B}#T2JSR STOLDA #X89STA P1+1LDA T2STA P2LDA T2+1LDY #<5720LDX #>5720JSR MVCL32120LDA #X290STA P1+1LDA #X22+9LDY #<19LDX #>19JSR MVCRTSL32700LDX #X74JSR LD.D}0LDX #X71JSR LD1JSR POKLDX #X74JSR LD0JSR FPILDY FR0STY 53774LDY #1STY 580LDY #1STY 202RTS.E}.FIL 'D:DATA.ASM'71JSR LD1JSR POKLDX #X74JSR LD0JSR FPILDY FR0STY 53774LDY #1STY 580LDY #1STY 202RTS,CSECX101 .BYT 65,1,6,0,0,0X102 .BYT 65,7,64,0,0,0X103 .BYT 'K:',EOSX104 .BYT 64,2,0,0,0,0X105 .BYT 65,2,0,0,0,0X106 .BY2G}T 65,3,0,0,0,0X107 .BYT 65,4,0,0,0,0X108 .BYT 65,4,80,0,0,0X109 .BYT 64,1,0,0,0,0X110 .BYT '',EOSX111 .BYT '',EOSX1122H} .BYT '',EOSX113 .BYT '',EOSX114 .BYT 'NEW DISK ',EOSX115 .BYT 64,9,0,0,0,0X116 .BYT ' ',EOSX117 .BYT '',EOSX118 .BY2I}T 'INIT DISK',EOSX119 .BYT ' ',EOSX120 .BYT '',EOSX121 .BYT 'MAIN MENU',EOSX122 .BYT '',EOSX123 .BYT '',EOSX124 .BYT2J} 'PRINT ',EOSX125 .BYT '',EOSX126 .BYT '',EOSX127 .BYT 'DELETE ',EOSX128 .BYT '',EOSX129 .BYT '',EOSX130 .BYT 2K}'SAVE ',EOSX131 .BYT '',EOSX132 .BYT '',EOSX133 .BYT 'FIND ',EOSX134 .BYT ' ',EOSX135 .BYT '',EOSX136 .BYT '2L}LOAD REC.',EOSX137 .BYT '',EOSX138 .BYT '',EOSX139 .BYT 'X-REF. ',EOSX140 .BYT '',EOSX141 .BYT '',EOSX142 .BYT 'C2M}ATALOGUE',EOSX143 .BYT 'Clear screen (Y/N)',EOSX144 .BYT 64,25,0,0,0,0X145 .BYT 'Y',EOSX146 .BYT '}',EOSX147 .BYT '',E2N}OSX148 .BYT 66,6,85,53,0,0X149 .BYT 65,7,2,0,0,0X150 .BYT 64,100,0,0,0,0X151 .BYT 65,6,148,0,0,0X152 .BYT '',EOSX153 .2O}BYT 65,32,0,0,0,0X154 .BYT 65,48,0,0,0,0X155 .BYT 65,64,0,0,0,0X156 .BYT 65,80,0,0,0,0X157 .BYT 65,96,0,0,0,0X158 .BYT 62P}5,112,0,0,0,0X159 .BYT 65,128,0,0,0,0X160 .BYT 65,144,0,0,0,0X161 .BYT 66,1,0,0,0,0X162 .BYT 66,1,16,0,0,0X163 .BYT 'ew2Q} record or eplace old (N/R)',EOSX164 .BYT 64,49,0,0,0,0X165 .BYT 'N',EOSX166 .BYT '',EOSX167 .BYT 'Disk full [RETURN]'2R},EOSX168 .BYT '1',EOSX169 .BYT 64,32,0,0,0,0X170 .BYT 'Search ll text or eadings only (A/H)',EOSX171 .BYT 64,56,0,0,0,02S}X172 .BYT 'Find',EOSX173 .BYT 64,4,0,0,0,0X174 .BYT 'H',EOSX175 .BYT 'Is this the one (Y/N/P/Q)',EOSX176 .BYT 64,37,0,0,2T}0,0X177 .BYT 'Q',EOSX178 .BYT 'P',EOSX179 .BYT 'P:',EOSX180 .BYT 65,6,57,0,0,0X181 .BYT 64,22,0,0,0,0X182 .BYT '',E2U}OSX183 .BYT 'CARD',EOSX184 .BYT 64,52,0,0,0,0X185 .BYT 'Not a data disk. Try another disk (Y/N)',EOSX186 .BYT 64,64,0,0,2V}0,0X187 .BYT '0 ',EOSX188 .BYT 'LOAD REC #',EOSX189 .BYT 64,16,0,0,0,0X190 .BYT 'Input error : Not on this disk [RETURN2W}]',EOSX191 .BYT 65,87,32,0,0,0X192 .BYT '-',EOSX193 .BYT 'Ԡ͠ˠ[RETURN]',EOSX194 .BYT 64,41,0,0,0,0X1952X} .BYT 'D:LEADER',EOSX196 .BYT 64,8,0,0,0,0X197 .BYT 0,0,0,0,0,0X198 .BYT 'D:FONT',EOSX199 .BYT 64,6,0,0,0,0X200 .BYT 65,2Y}16,36,0,0,0X201 .BYT 65,5,96,0,0,0X202 .BYT 65,5,97,0,0,0X203 .BYT 65,7,18,0,0,0X204 .BYT 65,7,17,0,0,0X205 .BYT 65,1,522Z},0,0,0X206 .BYT 65,7,16,0,0,0X207 .BYT 65,7,9,0,0,0X208 .BYT 64,113,0,0,0,0X209 .BYT 65,1,48,0,0,0X210 .BYT 64,18,0,0,0,2[}0X211 .BYT 65,21,54,0,0,0X212 .BYT 64,81,0,0,0,0X213 .BYT 65,21,135,0,0,0X214 .BYT 65,5,18,0,0,0X215 .BYT 65,5,19,0,0,02\}X216 .BYT 66,5,66,134,0,0X217 .BYT 65,1,146,0,0,0X218 .BYT 65,7,86,0,0,0X219 .BYT '䠠',EOSX220 .BYT 'oad ave 2]}ind rint elete ',EOSX221 .BYT 64,50,0,0,0,0X222 .BYT 'ew disk reference disk nit disk ',EOSX223 .BYT 64,55,0,0,02^},0X224 .BYT 'atalogue to abort enu',EOSX225 .BYT 64,36,0,0,0,0X226 .BYT 64,21,0,0,0,0X227 .BYT 63,53,0,0,0,0X22_}28 .BYT 191,53,0,0,0,0X229 .BYT ' ϠˠĠ ',EOSX230 .BYT 64,57,0,0,0,0X231 .BYT 'REC # ',EOS2`}X232 .BYT ' : ',EOSX233 .BYT 64,3,0,0,0,0X234 .BYT ' RECS, ',EOSX235 .BYT 64,7,0,0,0,0X236 .BYT 65,1,67,0,0,0X237 .BYT 2a}' TO GO ',EOSX238 .BYT 'hhhRhUhThYhX V`',EOSX239 .BYT 64,40,0,0,0,0X240 .BYT 'hhhh h hhhh2b} S  iP`',EOSX241 .BYT 64,103,0,0,0,0X242 .BYT 64,149,0,0,0,0X243 .BYT 64,150,0,0,0,0X244 .BY2c}T 'hhhhhhhhhЩԩՠȱ&i˥iiԥi٥',EOSX245 .BYT 64,128,0,0,0,0X246 .BYT 62d}4,129,0,0,0,0X247 .BYT 'ԅ`',EOSX248 .BYT 64,151,0,0,0,0X249 .BYT 'hhhhhhhϠɀ`@2e}88@8i ͩe˅ː̩e͐ͅ',EOSX250 .BYT 'Φ8`',EOSX251 .BYT 'hhhhh͠ˑȘ(`',EOSX252 2f}.BYT 64,39,0,0,0,0X253 .BYT 'h`',EOSX254 .BYT 64,19,0,0,0,0X255 .BYT 65,2,85,0,0,0X256 .BYT 64,136,0,0,0,0X252g}7 .BYT 64,5,0,0,0,0X258 .BYT 64,34,0,0,0,0X259 .BYT 65,1,39,0,0,0X260 .BYT 65,1,85,0,0,0X261 .BYT 65,1,49,0,0,0X262 .BYT2h} 65,1,71,0,0,0X263 .BYT 64,132,0,0,0,0X264 .BYT 64,35,0,0,0,0X265 .BYT 65,1,37,0,0,0X266 .BYT 65,7,82,0,0,0X267 .BYT 65,2i}5,89,0,0,0X268 .BYT 65,1,69,0,0,0X269 .BYT 65,1,101,0,0,0X270 .BYT 65,1,103,0,0,0X271 .BYT 65,7,100,0,0,0X272 .BYT 65,1,2j}82,0,0,0X273 .BYT 65,1,86,0,0,0X274 .BYT 64,51,0,0,0,0X275 .BYT 65,1,99,0,0,0X276 .BYT 65,2,96,0,0,0X277 .BYT 65,1,96,0,2k}0,0X278 .BYT 64,130,0,0,0,0X279 .BYT 64,118,0,0,0,0X280 .BYT 65,6,64,0,0,0X281 .BYT 65,7,22,0,0,0X282 .BYT 64,17,0,0,0,02l}X283 .BYT 65,1,68,0,0,0X284 .BYT 64,133,0,0,0,0X285 .BYT 65,6,65,0,0,0X286 .BYT 65,2,97,0,0,0X287 .BYT 64,48,0,0,0,0X282m}8 .BYT ' ',EOSX289 .BYT 65,87,33,0,0,0X290 .BYT ' are you sure (Y/N)',EOSX291 .BYT 66,5,55,116,0,0X292 .BYT 65,5,128,0,0,2n}0X293 .BYT 65,2,2,0,0,0VSECX1 *=*+6X2 *=*+6X3 *=*+6X4 *=*+6X5 *=*+6X6 *=*+6X7 *=*+6X8 *=*+6X9 *=*+6X10 *=*+6X11 2o}*=*+6X12 *=*+6X13 *=*+6X14 *=*+6X15 *=*+6X16 *=*+6X17 *=*+6X18 *=*+6X19 *=*+6X20 *=*+6X21 *=*+6X23 *=*+6X24 *=*+62p}X25 *=*+6X26 *=*+6X27 *=*+6X29 *=*+6X30 *=*+6X31 *=*+6X35 *=*+6X36 *=*+6X37 *=*+6X38 *=*+6X39 *=*+6X40 *=*+6X41 2q}*=*+6X42 *=*+6X43 *=*+6X45 *=*+6X46 *=*+6X47 *=*+6X48 *=*+6X49 *=*+6X50 *=*+6X51 *=*+6X52 *=*+6X53 *=*+6X54 *=*+62r}X55 *=*+6X56 *=*+6X57 *=*+6X60 *=*+6X61 *=*+6X62 *=*+6X63 *=*+6X64 *=*+6X65 *=*+6X66 *=*+6X67 *=*+6X68 *=*+6X69 2s}*=*+6X70 *=*+6X71 *=*+6X72 *=*+6X73 *=*+6X74 *=*+6X75 *=*+6X76 *=*+6X77 *=*+6X78 *=*+6X79 *=*+6X80 *=*+6X81 *=*+62t}X82 *=*+6X83 *=*+6X84 *=*+6X85 *=*+6X86 *=*+6X87 *=*+6X88 *=*+6X90 *=*+6X91 *=*+6X92 *=*+6X93 *=*+6X94 *=*+6X95 2u}*=*+6X97 *=*+6X98 *=*+6X99 *=*+6T1 *=*+6T2 *=*+6T3 *=*+6T4 *=*+6T5 *=*+6SSECX22 *=*+32X28 *=*+12X32 *=*+41X33 *=2v}*+97X34 *=*+262X44 *=*+34X58 *=*+98X59 *=*+642X89 *=*+5722X96 *=*+12X100 *=*+12VENDL99999.END+12X32 *=*+41X33 *=0hND+12X32 *=*+41X33 *=*+97X34 *=*+262X44 *=*+34X58 *=*+98X59 *=*+642X89 *=*+5722X96 *=*+12X100 *=*+12VENDL99999.E0P (USR)A58LDX #X37JSR STOL7030JMP L500L8000LDX #L8050JSR TRAPLDX #X29JSR LD0LDXJy} #X82JSR STOLDX #X3JSR LD0LDX #X25JSR LD1JSR IPOSLDA #0JSR SCB2LDX #<65535LDY #>655J~}BYT '53,81,12,47,64,4,45,64,4,47,81,12',EOSD4130.BYT '53,91,12,60,96,12,60,91,12,60,96,12,0,0,2000',EOSD4200.BYT '162,2436{},12,121,193,18,91,121,4,96,121,4,108,162,2,121,193,2,81,121,32',EOSD4210.BYT '96,121,4,91,121,4,96,121,2,91,121,2,81,121,8,6|}81,121,4,91,136,24,81,136,2,81,136,8',EOSD4220.BYT '76,121,36,68,108,36,60,96,48,0,0,2000',EOSD4300.BYT '217,162,16,193,16}}21,8,193,121,8',EOSD4310.BYT '162,96,8,162,96,8,121,81,8',EOSD4320.BYT '121,81,4,121,72,8,121,81,4',EOSD4330.BYT '162,96}35STX FR1STY FR1+1LDX #X32JSR SPR2LDX #X36JSR LD0LDX #X25JSR LD1JSR IPOSLDA #0JSRJ}6,8,182,136,8,182,136,8',EOSD4340.BYT '162,128,8,193,121,16,0,0,2000',EOSD4600.BYT '81,96,8,81,96,16,96,121,4,91,108,12,86}1,108,8,0,0,26',EOSD4610.BYT '81,96,8,81,96,16,96,121,4,91,108,12,81,108,8,0,0,26',EOSD4620.BYT '47,81,10,47,81,8,60,68,86},53,72,8,60,72,8,53,85,8',EOSD4630.BYT '60,85,8,47,81,8,60,81,8,53,91,8,60,96,16,0,0,2000',EOSD4700.BYT '121,204,20,121,26}04,10,121,204,10,121,182,20',EOSD4710.BYT '102,182,10,108,162,10,108,162,10,121,204,10,121,217,10,128,217,10,121,204,20,0,06}&@/ 0ɑLlrR01LltR0LlvR0LlxR )00Ȉ0i00i0LXRL"m"m"m"mO SCB2LDX #X187JSR SPRLDA #0JSR SCB2JSR GETLLDX #<65535LDY #>65535STX FR1STY FR1+1LDX #X44JSJ}R GETSL8005LDX #<65535LDY #>65535STX FR1STY FR1+1LDX #X44JSR VALLDX #X29JSR STOLDX #X3JSR LD0LDX #X30JSR LD1JSR POKL8010LDX #X29JSR LD0LDX #X6JSR LTLDX #T2J}JSR STOLDX #X29JSR LD0LDX #X81JSR GTLDX #T2JSR LORLDA FR0ORA FR0+1BNE *+5JMP A59JMJ}P L8050A59L8020LDX #X29JSR LD0LDX #X29JSR SUBJSR FPILDX #T3JSR STOLDX #XJ}29JSR LD1LDX #X34-1JSR SADLDX #T2JSR STOLDA #<1STA C1LDA #>1STA C1+1LDA T3STA C2LDA T3+1SJ}TA C2+1LDA #X165STA P1+1LDA T2STA P2LDA T2+1STA P2+1JSR EQSLDA FR0ORA FR0+1BNE *+5JMP A60JMP LJ}8050A60L8025LDX #X39JSR LD0LDX #X66JSR LD1JSR POKLDX #X41JSR LD0LDX #X6J}7JSR LD1JSR POKLDA #0JSR SCB2LDX #X145JSR SPRLDX #X94JSR LD0LDX #X66JSR LD1JSR PJ}OKLDX #X95JSR LD0LDX #X67JSR LD1JSR POKLDX #X3JSR LD0LDX #X25JSR LD1JSR J}IPOSLDA #0JSR SCB2LDX #<65535LDY #>65535STX FR1STY FR1+1LDX #X32JSR SPR2L8030LDX #X38JSR LD0J}JSR FPILDX FR0LDY FR0+1STX USRSTY USR+1LDA #>A61-1PHALDA #USX-1.FIL 'D1:ASSEM.SGE'DY #>X38JSR LD0HmPHALDA #T2JSR STOLDX #X50JSR LD0JSR FPILDX #T2JSR STOLDX #XN}29JSR LD0LDX #X25JSR MULLDX #X2JSR SUBJSR FPILDX #T3JSR STOLDX #X25JSR LDN}0JSR FPILDX #T4JSR STOLDX #X55JSR LD0JSR FPILDA FR0PHALDA FR0+1PHALDA T4PHALDA T4+1PHALDAN} T3PHALDA T3+1PHALDA T2PHALDA T2+1PHALDA #4PHAJMP (USR)A61LDX #X37JSR STOL8040LDY #$FFJSR TRAPJMPN} L500L8050LDX #X31JSR LD0LDX #X30JSR LD1JSR POKLDX #X3JSR LD0LDX #X25JSRN} LD1JSR IPOSLDA #0JSR SCB2LDX #X189JSR SPRLDX #X1JSR LD0JSR SCBJSR GETLDX #X7JSR SN}TOLDX #X82JSR LD0LDX #X29JSR STOJMP L8040L9000LDX #X3JSR LD0LDX #X30JSR N}LD1JSR POKLDX #X6JSR LD0LDX #X45JSR STOLDX #X39JSR LD0LDX #X66JSR LD1JSRN} POKLDX #X41JSR LD0LDX #X67JSR LD1JSR POKLDA #0JSR SCB2LDX #X145JSR SPRLDX #X94JSR LD0LDX #X66JSR LD1JSR POKLDX #X95JSR LD0LDX #X67JSR LD1JSR POKL9010LN}DX #X33JSR ADRJSR FPILDX FR0LDY FR0+1STX USRSTY USR+1LDA #>A62-1PHALDA #USX-1PHALDA #T2JSR STOLDX #X147JSR LD0LDX #X45JSR SUBJSR FPILDX #T3JSR SN}TOLDX #X45JSR LD1LDX #X34-1JSR SADLDX FR0LDY FR0+1JSR ADRJSR FPILDX #T2JSR STOLDN}X #X167JSR ADRJSR FPILDX #T3JSR STOLDX #X6JSR LD0JSR FPILDX #T4JSR STOLDXN} #X54JSR LD0LDX #X45JSR SUBJSR FPILDA FR0PHALDA FR0+1PHALDA T4PHALDA T4+1PHALDA T3PHALDAN} T3+1PHALDA T2PHALDA T2+1PHALDA #4PHAJMP (USR)A62LDX #X53JSR STOL9015LDX #X53JSR LD0LDX N}#X3JSR EQLDX #T2JSR STOLDX #X92JSR LD0LDX #X6JSR EQLDX #T2JSR LANN}DLDA FR0ORA FR0+1BNE *+5JMP A63LDX #X6JSR LD0LDX #X90JSR STOLDX #X3JSR LD0LDX #X29JSR STOJMP L10010A63L9020LDX #X53JSR LD0LDX #X3JSR EQLDA FR0ORA FR0+1BNE *+5JMP A6N}4LDX #X6JSR LD0LDX #X90JSR STOLDX #X3JSR LD0LDX #X29JSR STOJMP L410A64L9N}030LDX #X45JSR LD0LDX #X53JSR ADDLDX #X45JSR STOL9040LDX #X38JSR LD0JSRN} FPILDX FR0LDY FR0+1STX USRSTY USR+1LDA #>A65-1PHALDA #USX-1PHALDA #T2JSN}R STOLDX #X50JSR LD0JSR FPILDX #T2JSR STOLDX #X45JSR LD0LDX #X6JSR SUBLDXN} #X25JSR MULLDX #X2JSR SUBJSR FPILDX #T3JSR STOLDX #X6JSR LD0JSR FPILDX #T4JSR STOLDX #X55JSR LD0JSR FPILDA FR0PHALDA FR0+1PHALDA T4PHALDA T4+1PHALDA T3PHALDA T3+1N}PHALDA T2PHALDA T2+1PHALDA #4PHAJMP (USR)A65LDX #X37JSR STOLDX #X91JSR LD0JSR FPILDX FR0N}LDY FR0+1STX USRSTY USR+1LDA #>A66-1PHALDA #USX-1PHALDA #T2JSR STOLDX #X50JSR LD0JSR FPILDX #T2JSR STOLDX #X45JSR LD0LDX #X6JSR SUBLDX #X56JSR MULLDX #X73JSR SUBLDX #T3JSR STOLDX #X147JSR LD0LDX #T3JSR SUBJSN}R FPILDX #T4JSR STOLDX #T3JSR LD1LDX #X89-1JSR SADLDX FR0LDY FR0+1JSR ADRJSR FPILN}DA FR0PHALDA FR0+1PHALDA T2PHALDA T2+1PHALDA #2PHAJMP (USR)A66LDX #X37JSR STOL9065JMP L9010L9500LN}DX #X190JSR LD0LDX #X46JSR SUBLDX #X1JSR ADDLDX #X47JSR STOL9510LDX #X33JSR ADRJSR FPILDX FR0LDY FR0+1STX USRSTY USR+1LDA #>A67-1PHALDA #USX-1PHALDA #T2JSR STOLDX #X147JSR LD0LDX #X45JSR SUBJSR FPILDX #T3JSR STOLDX N}#X45JSR LD1LDX #X89-1JSR SADLDX FR0LDY FR0+1JSR ADRJSR FPILDX #T2JSR STOLDX #X44JSR ADRJSR FPILDX #T3JSR STOLDX #X46JSR LD0JSR FPILDX #T4JSR STOLDX #X47JSR LD0LDX #X45JSR SUBJSR FPILDA FR0PHALDA FR0+1PHALDA T4PHALDA T4+1PHALDA T3PHALDA T3+1PN}HALDA T2PHALDA T2+1PHALDA #4PHAJMP (USR)A67LDX #X29JSR STOL9520LDX #X29JSR LD0LDX #X3JSR EQLDA FR0ORA FR0+1BNE *+5JMP A68JMP L410A68L9530LDX #X45JSR LD0LDX #X29JSR ADDLDN}X #X56JSR DIVJSR INTLDX #X6JSR ADDLDX #X29JSR STOLDX #X56JSR MULLDX #X6JSR ADDLDX #X45JSR STOL9540LDX #X38JSR LD0JSR FPILDX FR0LDY FR0+1STX USRSTY USR+1LDN}A #>A69-1PHALDA #USX-1PHALDA #T2JSR STOLDX #X50JSR LD0JSR FPILN}DX #T2JSR STOLDX #X29JSR LD0LDX #X25JSR MULLDX #X2JSR SUBJSR FPILDX #T3JSR STOLDX #X25JSR LD0JSR FPILDX #T4JSR STOLDX #X55JSR LD0JSR FPILDA FR0PHAN}LDA FR0+1PHALDA T4PHALDA T4+1PHALDA T3PHALDA T3+1PHALDA T2PHALDA T2+1PHALDA #4PHAJMP (USR)A69LDX #X37JSR STOL9550LDX #X31JSR LD0LDX #X30JSR LD1JSR POKL9555JSR L27000L9560LDX #XN}27JSR LD0LDX #X25JSR LD1JSR IPOSLDA #0JSR SCB2LDX #X174JSR SPRJSR CRJSR L26000LDY #64STY 7N}02LDX #X3JSR LD0JSR FPILDY FR0STY 694L9565LDX #X1JSR LD0JSR SCBJSR GETLDX #X7JSR STN}OLDX #X3JSR LD0LDX #X25JSR LD1JSR IPOSLDA #0JSR SCB2LDX #<65535LDY #>65535STX FR1STY FR1+1LDN}X #X32JSR SPR2JSR CRLDX #X3JSR LD0LDX #X30JSR LD1JSR POKL9570LDX #X176JN}SR ASCLDX #X7JSR EQLDA FR0ORA FR0+1BNE *+5JMP A70LDX #X3JSR LD0LDX #X29JSR STOJMP LN}410A70L9575LDX #X177JSR ASCLDX #X7JSR EQLDA FR0ORA FR0+1BNE *+5JMP A71JSR L4500A71L9580LDN}X #X144JSR ASCLDX #X7JSR NELDA FR0ORA FR0+1BNE *+5JMP A72JMP L9510A72L9590JMP L500L10000LDN}X #L4040JSR TRAPLDX #X3JSR LD0LDX #X30JSR LD1JSR POKLDX #X90JSR LD0LDX N}#X3JSR EQLDA FR0ORA FR0+1BNE *+5JMP A73LDX #X6JSR LD0LDX #X92JSR STOJMP L9000A73L1N}0010LDX #X3JSR LD0LDX #X92JSR STOLDX #X6JSR LD0LDX #X45JSR STOLDX #2STX FR1STY FR1+1LDX #T3JSR STOLDX #X178JSR FSPCLDA T3LDY T2JSR OPENL10020LDX #X33JSR ADRJSR FPILDX FR0LDY FR0+1STX USRSTY USR+1LDA #>A74-1PHALDA #USX-1PHALDA #T2JSR STOLDX #X147JSR LD0LDX #X45JSR SUBJSR FPILDX #T3JSR STOLDX #X45JSR LD1LDX #X34-1JSR SADLDX FR0LDY FR0+1JSR ADRJSR FPILDX #T2JSR STOLDX #X167JSR ADRJSR FPILDX #T3JSR STOLDX #X6JSR LD0JSR FPILDX #T4JSR STOLDX #X54JSR LD0LDX #X45JSR SUBJSR FPILDA FR0PHALDA FR0+1PHALDA T4PHALDA T4+1PHALDA T3PHALDA T3+1PHAN} #>X54JSR LD0LDX #X45JSR SUBJSR FPILDA FR0PHALDA FR0+1PHALDA T4PHALDA T4+1PHALDA T3PHALDA T3+1PHAN}